* net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c985813bda1143373ed28b380c8b1f3609e900d6..0bd6b45a8141879d1479cbd315a6f20423b5e822 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-24  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines.
+       (Bug#10874)
+
 2012-02-23  Alan Mackenzie  <acm@muc.de>
 
        * emacs-lisp/easy-mmode.el (define-minor-mode): Add extra

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 4338cdff3cda2ded05773ddbe320fa7ada5f59d5..2a44148e4ce4039b78f9336ef048b1196cdcf1f2 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1390,6 +1390,9 @@ only return the directory part of FILE."
                (run-hooks 'find-file-hook)
                (setq buffer-file-name nil)
                (goto-char (point-min))
+               (while (search-forward-regexp "^[ \t]*#.*$" nil t)
+                 (replace-match ""))
+               (goto-char (point-min))
                (skip-chars-forward " \t\r\n")
                (while (not (eobp))
                  (ange-ftp-parse-netrc-group))